#! /usr/local/bin/perl -w

use strict;
use Cwd 'chdir';

chdir "/tmp";