use stict;
use Cwd qw(abs_path);

my $path = abs_path($0);