Select Code to Download

C:\>perl script.pl outfile
C:\>perl script.pl ">outfile"

my $openmode = '>';
if($outfile =~ m/\A>/xms)
...
    $outfile =~ s/\A>//xms;
}
open($filehandle, $openmode, $outfile);