#!/afs/athena/contrib/perl/perl

for (@ARGV) {
    if ($link = readlink($_)) {
	unlink($_)
	    || die "Can't unlink $_";
	system('/bin/cp', '-f', $link, $_)
	    && die "system() failed";
	die "Can't copy $link to $_ [$?]" if $?;
	print "Delinked $_ (ex $link)\n";
    } else {
	print "$_ is not a link!\n";
    }
}