Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
...
sleep 10;
$chan->exec('nas_server -list') or die "Cannot run the command - $!.$^
+E.";
print while (<$chan>);
  2. or download this
    C:\plscripts>perl newmon.pl
Cannot run the command - .A non-blocking socket operation could not be
+ completed immediately. at newmon.pl line 16.
  3. or download this
    use Learning::Perl;
use Beginning::Perl::Ovid;
print "Awesome Books";