Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print "going to close filehandle\n";
close(PF) or die "failed\n";
print "here 2\n";