Select Code to Download

#!/usr/bin/perl
use strict;
...
sleep 3;
}
print "Message sent!\n";

There was an error in the last call to Process that you did not check 
+for and
handle.  You should always check the output of the Process call.  If i
+t was
undef then there was a fatal error that you need to check.  There is a
+n error
in your program