#!/usr/bin/perl -w

use strict;

test1("hello");
test2("hello");

sub test1
{
  &showargs;
}

sub test2
{
  &showargs();
}

sub showargs
{
  print "Got args @_\n";
}
__END__
Got args hello
Got args