use Shell;
 my $sh = Shell->new;
 $tmp = $sh->exec('readlink /root/Desktop/PerlScripting/mylink ');
 print "$tmp";