Select Code to Download

    #!/usr/bin/perl
    use strict;
...
    print $printline;
    
    close (FILE) or die "Could not close sample.txt: $!";

    open (FILE, '<', 'sample.txt') or die "Could not open sample.txt: 
+$!";
...
}
    close (FILE) or die "Could not close sample.txt: $!";
    close (FILE1) or die "Could not close output.txt: $!";