Shell Programming and Scripting

use File::Remote;
my $remote = new File::Remote;
# Create a new file and change its permissions
$remote->mkdir("host:/remote/dir");
$remote->touch("host:/remote/dir/file");

$remote->mkdir("com123.user123.mydomain.com:/home/user/dirTocreate");

use File::Remote;
use Net::SSH::Perl;

$scon = Net::SSH::Perl->new ("server12.comp123.domain123.com",(protocol=>'2',port=>'22',debug=>'true'));
$scon->login("user123","pass123");
print "connected ...\n";


my $remote = new File::Remote;

$remote->touch("server12:/home/user123/file.o") or die ":: $!\n";;

:: Broken pipe

:: Broken pipe

    while executing
"::perl::CODE(0x577fc1c)"
    invoked from within
".c.calc invoke "
    invoked from within
".c.calc instate {pressed !disabled} { .c.calc state !pressed; .c.calc invoke } "
    (command bound to event)

# Object-oriented method
   use File::Remote;
   my $remote = new File::Remote;
   my $secure = new File::Remote (rsh => "/bin/ssh", rcp => "/bin/scp");

$secure->open("server12.comp123.domain123.com:/home/user123/file.o) or die "Can't open: $!";