use File::Basename;
my $cwd = dirname $0;