for my $test ( qw( test1 test2 ))
{
    next unless my $test_sub = main->can( $test );
    print "Dear user, test $test is currently running.\n";
    $test_sub->();
}