Select Code to Download

    my $ptf_filename;
    ...
...
    } 
    return $ptf_filename;

>perl -wMstrict -le
"my $x = 1;
...
"
"my" variable $x masks earlier declaration in same scope at ...
Use of uninitialized value $x in print at ...