sub routine {

    # identify filepath and name as parameters passed to routine
    my $file = shift;
    my $name = shift;
    print "routine called with '$file', '$name'\n";
}