sub Blah($$)
{
  my $var1 = shift;
  my $var2 = shift;
}
&Blah($0);