Do it like this:

#!/usr/bin/perl -w
use strict;
use File::Spec::Functions qw(rel2abs);
print rel2abs($0);
[download]

Originally posted as a Categorized Answer.