Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
             @file;
open my $output, '>' or die "Unable to open output file: $!";
print $output $_ for @sorted_file;

file1.txt
file2.txt
...
file1000.txt

/sorted
file1.txt -> /sorted/file1.txt
file2.txt -> /sorted/file2.txt
...
file1000.txt -> /sorted/file1000.txt

#!/usr/bin/perl
use strict;
...
                print "OK: Sorted @singlefile \n";
        }
    } elsif ((!$help_flag) and (!$version_flag)){printHelp();}