#!/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"; }