#!/usr/bin/perl -w
use strict;

hello('world');
goodbye('world');

sub hello {
    my $greeting = shift;
    print "hello $greeting\n";
}

sub goodbye {
    my $greeting = shift;
    print "goodbye $greeting\n";
}