>perl -i.bak -e"$SIG{__WARN__}=sub{ warn qq[failed:$ARGV]}; print <>" fred.dat
failed: fred.dat at -e line 1.