Select Code to Download

sub safe_open {
    my $fn = shift;
    $fn =~ s/^(>>?)//;
...
    seek $fh, 0, 0;
    return $fh;
}