Help for this page

Select Code to Download

Select or download this

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

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