Select Code to Download

$filename = @ARGV[0];

open (FILE,"$filename") || die "Can't Open $filename: $!\n";

use strict;
my $filename = shift;
open(my $fh, '<', $filename) or die "Can't open $filename: $!";
my $text = do { local $/; <$fh> };  # slurping into a string
# do something with $text here