#!perl

use strict;
use warnings;
use File::Copy::Link qw(copylink);
my $VERSION = $File::Copy::Link::VERSION;

for my $file (@ARGV) {
    copylink $file;
}

# $Id$
