#!/usr/bin/perl -lw

use Cwd 'chdir';
use File::Basename;

print "started in $ENV{PWD}";

chdir dirname $0;

print "now in $ENV{PWD}";