Help for this page
$i=1; while ($i<=4); ... { $i ++; }
use Cwd qw(cwd); my $oridir = cwd; ... ... # back to original dir chdir($oridir);