#!/usr/bin/perl

print "Hello\n";
&ThisSub;

exit(0);

sub ThisSub {
   print "I am now in sub $#@_#($&\n";
   return(1);
}

output:

Hello
I am now in sub ThisSub