Select Code to Download

  'print "$_: "; s/foo/bar/ if <STDIN> =~ /^y/i'

  The system cannot find the file specified.

#!/usr/bin/perl -w

...
  die $@ if $@; 
  rename ($was, $_) unless $was = $_;
}