use strict;
use Cwd 'abs_path';

my $fileinquestion = "/var/mail/";
my $realpathfor = abs_path($fileinquestion);
print "$realpathfor\n";