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;