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