Select Code to Download

#!/usr/bin/perl -w

...
system('/bin/ls -dl /data/www/mods/foo.pm');

open FH, "<" . $file or die $!;