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

# usage: first parameter is user name
#        second parameter is message

my ($user, $message) = @ARGV;
print "Hello $user. Your message is: $message\n";

sub func {
  # note: $a and $b are bad variables to use,
  #       as they are special variables used by sort()
  my ($c,$d) = @_;
  print $c,$d;
  return $c+$d;
};

print func(10,10);