--- bin/smclp.pl	2010/01/03 19:32:14	465
+++ bin/smclp.pl	2010/01/03 20:00:05	466
@@ -9,10 +9,16 @@
 
 use Net::OpenSSH;
 use Expect;
+use Getopt::Long;
 
 my $debug = 0;
 my $timeout = 5;
 
+GetOptions(
+	'debug!' => \$debug,
+	'timeout=i' => \$timeout,
+) or die $!;
+
 my ( $uri, $command, $path ) = @ARGV;
 die "usage: $0 login:passwd\@host show /system1\n" unless $uri && $command;