Select Code to Download

use Scalar::Util qw(dualvar);
my %Error=(220=>"Cannot connect to service");
...
}
my $x;
$x=mysub() or die $Error{$x};

use Scalar::Util qw(dualvar);
my %Error=(220=>"Cannot connect to service");
...
}

mysub() or die sprintf "%d %s",$@,$Error{0+$@};