Select Code to Download

use FileHandle;
my $fh = new FileHandle "< $file"; 
$fh -> open;

use FileHandle;
my $ph = new FileHandle "ps -ef |";
my $pid = $ph -> open; # and you're sort of back where you started.