Help for this page

Select Code to Download

Select or download this

$pwd = (getpwuid($<))[1];

...
                   } else {
                       print "ok\n";
                   }