pushd.pl

#!/usr/bin/env perl

use strict;
use warnings FATAL => 'all';

{
  package pushd;
  use Cwd qw(getcwd chdir);

  sub new {
    my ($class, $new_dir) = @_;

    my $old_dir = getcwd();
    chdir($new_dir) or die "$!";

    my $self = bless {
      old_dir => $old_dir,
    }, $class;

    return $self;
  }

  sub DESTROY {
    my $self = shift;

    chdir($self->{old_dir}) or die "$!";
  }
}

print `pwd`;
{
  my $pushd = pushd->new('/tmp');
  print `pwd`;
}
print `pwd`;