#!/usr/bin/perl --
use strict;
use warnings;
use Cwd;
use File::Temp qw/ tempfile tempdir /;

print cwd(), "\n";
my $temp_dir       = tempdir();
chdir $temp_dir or die "Cannot chdir to '$temp_dir': $!";
print cwd(), "\n";
__END__