#!/usr/bin/perl -w
use strict;
use File::Spec;

my $src = shift or die 'ERROR: source not specified!', $/;
my $dest = shift || '.';
chdir $dest or die qq{ouch, cannot chdir to '$dest': $!$/};
$src = File::Spec->abs2rel( $src, $dest ) ;
$src =~ m|/([^/]+)$|;
symlink $src, $1 or die qq{cannot create symlink: $!$/};