use File::pushd;

     chdir $ENV{HOME};

     # change directory again for a limited scope
     {
         my $dir = pushd( '/tmp' );
         # working directory changed to /tmp
     }
     # working directory has reverted to $ENV{HOME}

     # equivalent to pushd( File::Temp::tempdir )
     {
         my $dir = tempd();
     }