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