#!/usr/local/bin/perl
# Jaime Prilusky, 2011
use File::Basename;

  my $f = $ARGV[0] || die "Usage: $0 fileName/directoryName\n";

  $fil = basename($f);
  $dir = dirname($f);

print qq{
received  $f
directory $dir
file      $fil
};