#!/usr/bin/perl

#  subs - try alternate names for subroutines

use strict;
use warnings;

my $name;

if (@ARGV) {
    $name   = \suba();
}
else {
    $name   = \subb();
}

my $x   =   $name;

sub suba    {
    print "I'm a Mac\n";
}

sub subb    {
    print "I'm a PC\n";
}
#   subs Ends