< open FH , "<" , $fname or die("Unable to open file '$fname'. $!\n"); > open FH , "<$fname" or die("Unable to open file '$fname'. $!\n"); 102c101 < open PAGER , "|-" , $G{list_pager} > open PAGER , "| $G{list_pager}"