Select Code to Download

#!/usr/bin/perl -w

...
if ($ret) { print "File exists with write perm\n" }
else { print "File does not exist or no write perm\n"; }