use Cwd qw( realpath );

my $iAmHere = realpath( __FILE__ );