Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
        print scalar localtime, qq{\n};
        sleep 1;
    }
    
  2. or download this
    #!/usr/bin/perl
    
    ...
        print $interface, q{ }, $1, q{: }, $2, qq{\n};
    }
    close CMD || die "bad cmd: $! $?";