Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        or print 'error: symlink // ',$!,$/, return;
    print 'OK',$/;
}, no_chdir => 1}, $d);

#!/usr/bin/perl -w
use strict;
...
$src = File::Spec->abs2rel( $src, $dest ) ;
$src =~ m|/([^/]+)$|;
symlink $src, $1 or die qq{cannot create symlink: $!$/};