Mine

$ cat test.pl
#!/usr/bin/perl -w

sub print_func {
    print "My name is ".(shift)." and I'm ".(shift)." years old.\n";
    return 0;
}

&print_func("Johnny", "23");