link( $file, $newfile ) or die $!;