Select Code to Download

     open($fh1, '>', \ substr($s1, length($s1)) )
       or die "Can't restore fh1";

     open($fh1, '>>', \$s1)
       or die "Can't restore fh1";