Select Code to Download

#!/usr/bin/perl

...
    my ($base, $dir, $ext) = fileparse( $path, '\.[^.]*' );
    printf "DIR: $dir\nBASE: $base\nEXT: $ext\n\n";
}