File::pushd が { $dir = pushd "/usr/local"; ... } より pushd "/usr/local" => sub { ... }; みたいにかけた方がかっこいいと思ったので書いてみた。 #!/usr/bin/env perl use strict; use warnings; use Cwd qw(cwd); sub pushd { if (@_ == 1) { my $ta…