Select Code to Download

#!/usr/bin/perl

...
  print "got message\n";
  print Dumper(\$msg);
}

got hup
got message
$VAR1 = \undef;