Select Code to Download

sub pager { 
        my $temp = "temp.txt";
...
        my $tty = "/dev/tty"; 
        system("$pager $temp >$tty");
}