Select Code to Download

sub my_die {
   open(my $fh, ">>", $dieFile);
...
}

my $value = somecommand or my_die "$!\n";