use strict;

sub test1
{
    my $abc = shift;
    print $abc, "\n";
}

sub test2
{
    print "test2: $_[0]\n";
    &test1;
    test1("from test2");
    print "once again:", $_[0], "\n";
}

test2("from main");