Select Code to Download

my $filename = $ARGV[0];
my $nb_lines = 0;
...

my $saved_line = <$hdl_sauv>;
print "$saved_line\n";

my $filename = $ARGV[ 0 ] or die "Usage: $0 file\n";
open my $file, $filename or die "Can't open '$filename': $!";
...
}

print;