#!/usr/bin/perl -w
$pat=shift;
if ($pat=~/^-.$/) {
    $test=($pat eq '-t');
    $link=($pat eq '-l');
    $pat=shift;
}

for(@ARGV) {
    $a=$_;
    eval $pat;
    if ($test) {
	print "$a -> $_\n";
    } elsif ($a ne $_) {
	($link?(link $a,$_):(rename $a,$_)) or warn "$a -> $_: $!" unless -e $_;
    }
}