One little utility I wrote which others in my workplace have found useful is called 'fp', for "Full Path":
use Cwd qw(abs_path);
my $file = $ARGV || ".";
die "Error - couldn't find (or read) '$file': $!\n" if !(-e $file);
print abs_path($file) , "\n";
The reason for writing it was that I frequently found myself copying file names from the terminal to email as a pointer to someone and it was getting annoying to write "pwd", copy the output, then copy the filename and paste it after the "pwd" output.