link( $file, $newfile ) or die $!; [download]
In reply to Re: Hard linking with Perl by friedo in thread Hard linking with Perl by astroboy