Select Code to Download

#!/usr/bin/perl

...
        print "\nformat: split <file>\n\n";
        exit;
}

#!/usr/bin/perl

...
    close $value;
}
close FILE;