Mine

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

sub print_func {
    my $name = shift;
    my $age = shift;

    print "My name is $name and I'm $age years old.\n";
    return 0;
}

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