use strict;
use File::Basename;

while (<DATA>) {
  chomp;
  my $dir = dirname $_;
  my $file = basename $_;
  print "I am '$file' in '$dir'.\n";
};
__DATA__
/proj/home/me/asdf.pl
asdf1.pl
foo/asdf.pl

##</code><code>##

use strict;
use FindBin;

print "I am in '$FindBin::Bin'.";