Select Code to Download

#!/usr/bin/perl -w
...
print "dir is $dir , files is $files\n";

system "whatis $path";