Select Code to Download

&mysub2(mysub1);
sub mysub1{
...
        print "Exists";
    }
}

my $rv = getsomething();
die "Error while getting something" unless defined $rv;
die "We did not find anything" unless $rv;
print "Found " . scalar(@$rv) . " thing(s)\n";