You've already got some good answers, I just wanted to point out that in print "\nSuccess $!\n"; it doesn't make sense to show the value of $!, since as a general rule, it is only set on failure, and not cleared on success.

$ perl -wMstrict -le '$!=42; -e "/tmp" or die; print "<$!>"'
<No message of desired type>
[download]