Fix error printing

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/smtpt b/smtpt
index f392ca9..1781498 100755 (executable)
--- a/smtpt
+++ b/smtpt
@@ -103,8 +103,8 @@ X5O!P%@AP[4{DEACTIVATED}\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H
 
 # Close properly smtp connection before exiting on error
 sub error {
 
 # Close properly smtp connection before exiting on error
 sub error {

-    my $mesg = $@;
-    print STDERR $mesg;
+    my $mesg = shift;
+    print STDERR "E: ", $mesg;

     if ($smtp) {
         $smtp->quit();
     }
     if ($smtp) {
         $smtp->quit();
     }