Help for this page
use Cwd qw( getcwd ); ... print Cwd::getcwd(), "\n"; print getcwd(), "\n";
/tmp/ikegami /home/ikegami/tmp