#!/usr/bin/perl

sub ryan_kempt {

%ryankempt = (

'alias' => 'sockopen',

'location' => 'ontario, canada',

'occupation' => 'systems analyst',

'workplace' => "fast computers",

);

return (%ryankempt);

}

sub skills {

@areas = ('programming', 'networking', 'standards', 'scripting');

@languages = ('(x)html', 'css', 'perl', 'java', 'vb', 'php');

@software = ('codelobster', 'codeigniter', 'microsoft office');

return (\@areas, \@languages, \@software);

}

sub hobbies {

@activities = ('internet', 'reading', 'hiking', 'weightlifting');

return (@activities);

}

sub social {

$profiles = "facebook";

return ($profiles);

}

sub contact {

$e_mail = 'ryan_kempt@fastcomputers.ca';

$msn = 'ryan_kempt@fastcomputers.ca';

return ($e_mail, $msn);

}