#!/usr/bin/perl
# This was originally the way that i phrased a question to
# my friend John by email.
# I used this to ask him if he wanted to bring his laptop
# to my house and LAN some C.S ;)
# I later realized it sort of falls into this category


my $plan =
"my %person{name,accessory,activity} = ('john','laptop','nothing');
 gotoNeilsHouse(%person);
";

sub gotoNeilsHouse
{
  my %person = shift;
  use ($person{'accessory'});
  %person{'activity'} = 'counterstrike';
}

print "Do you wish to continue with plan? [Y/N]: ";
<STDIN>;
($_ == 'Y') && eval $plan;
#
# P.S It is most certainly O.k to laugh at me for this one  # ;D
#
[download]