Select Code to Download

#!/usr/bin/perl
use warnings;
...
print '$fh is an ', ref $fh, "\n";
Print $fh;
$fh->Print;