#!/usr/bin/perl

use strict;
use warnings;

print "About to test sub calls using \& --\n";
&test1;

print "About to test sub call using name() --\n";
test2();

sub test1() {
	print "test1: Working\n";
}

sub test2() {
	print "test2: Working\n";
}