#!/usr/bin/perl

use strict;
use warnings;

use Cwd;

my $startup_path = getcwd;

my $symlink_path = "some/symlink/path";
chdir $symlink_path;

my $working_path = getcwd;

printf( "Started in %s, chdir'd to %s, now in %s\n",
        $startup_path, $symlink_path, $working_path );