#!/usr/bin/perl

sub f1()
{
my ($a) = @_;

	print "A \n";
	print "$a\n";
}

sub f2()
{
my ($b) = @_;

	print "B \n";
	print "$b\n";
}

#
# main
#

$f=\&f1;

&$f("hello");

$f=\&f2;

&$f("goodbye");