sub test_sub { my $error_msg = sub1() || sub2() || sub3(); return $error_msg; }