use File::Spec::Functions qw/catfile/;
use FindBin;

my $scriptname = catfile($FindBin::Bin, "foo.pl");