use strict;

my ($link1, $link2);
# source
$link1 = '/var/tmp/sample.txt;

#destination
$link2 = '/tmp/sample.txt';

my $stat = symlink("$link1", "$link2");

if ( $stat ) {
   print "Link got created \n";
}
else {
   print "Link not created \n";
}