Language Basics Perl

#!/usr/bin/perl
sub bye;  # Forward reference
$name="Tom";
print "Hello $name.\n";
bye;      # Call subroutine without the ampersand
sub bye{
    print "Bye $name\n";
}