my $dir = '/tmp';
    chdir($dir) || die "Failed to cd : $!\n";