The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

RMBARKER / File-Copy-Link-0.200 / examples / copylink 

            

              
1
2
3
4
5
6
7
8
9
10
11
12

              
#!perl
use strict;
use warnings;
use File::Copy::Link qw(copylink);
my $VERSION = $File::Copy::Link::VERSION;
for my $file (@ARGV) {
    copylink $file;
}
# $Id$