#!/usr/bin/perl

use File::Basename;

for (@ARGV) {
    my $base = basename $_;
    my $dir = dirname $_;
    print "File name is $base in directory $dir\n";
}