Select Code to Download

use DecodedMsg;
tie $! , "DecodedMsg";

use strict; use warnings;
use Encode qw(decode encode);
...
open(my $fh, "<", " /the/path/to/nowhere");
$_ =$!;
show;