Here you go priyasony, just fill in the blanks, Path::Tiny, perlintro, split, Modern Perl

#!/usr/bin/perl --
use strict; use warnings;
Main( @ARGV );
exit( 0 );
sub Main {
    my( @dirs ) = @_;
    my @files = GetFiles( @dirs );
    for my $file( @files ){
        SnackFiles( $file );
    }
}
sub GetFiles { ... }
sub SnackFiles {
    my( $file ) = @_;
    ...
    split
    ...
}
[download]