The most portable solution is a combination of File::Copy and unlink (yes, not delete!). You could try it with rename on its lonesome, but that can behave differently on different systems.

perl -e 'print "How sweet does a rose smell? "; chomp $n = <STDIN>; $r
+ose = "smells sweet to degree $n"; *other_name = *rose; print "$other
+_name\n"'
[download]