Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use Sudo;
...
$ perl test.pl
STDOUT: root
tinyos
  2. or download this
    #!/usr/bin/perl
use strict;
use warnings;

print $ENV{USER}."\n";