use 5.020;
use warnings;
use Cwd qw(abs_path);
use FindBin;

say qq(Started as   '$0');
say q(abs_path is  '), abs_path($0), q(');
say q(FindBin says '), 
    qq($FindBin::RealBin/$FindBin::RealScript), q(');
say q(Changing directory...);
chdir '..';
say q(abs_path is  '), abs_path($0), q(');
say q(FindBin says '), 
    qq($FindBin::RealBin/$FindBin::RealScript), q(');