1 #!/usr/bin/perl -w 2 use strict; 3 use FindBin qw($Bin $Script); 4 5 my $rp=$Bin; 6 print "the script dir:$rp script name:$Script "; 7 8 use Cwd qw(abs_path getcwd); 9 my $abs=abs_path(getcwd()); 10 print "current path is:$abs "