use File::Spec::Functions qw( rel2abs );
use File::Basename;
print basename rel2abs $0;