require Win32::Symlink;
Win32::Symlink->import();
use warnings;
use strict;
use Cwd;

my $cwd = getcwd;
my $a = 'stories/graph.png';
my $link = 'link.png';
unlink("$cwd/$link") if -e $link;
symlink("$cwd/$a", "$cwd/$link");
exit;

$diff link.png stories.graph.png
[no difference]

##</code><code>##

ln -s stories/graph.png link.png

##</code><code>##

export pwd=`pwd`
ln -s $pwd/stories/graph.png $pwd/link.png

##</code><code>##

ln stories/graph.png link.png