#!/usr/bin/perl
use strict;

my $dir = "/foo/bar/mydirectory";
chdir($dir) || die "Whoops: $!\n";