Perl Subroutines

sub printCopyright {
    my $start = "2002" # What ever year the copyright began
    my $owner = "Zoelife4u.Org Networks";
    my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = 
      localtime time;
    my $y = $year + 1900;
    my $copyright = "Copyright © $start-$y $owner"
    return $copyright; 
}

sub mkmd5 {
    my $string = shift;
    use Digest::MD5 qw(md5_hex);
    return md5_hex($string);
}
print &mkmd5('password')."\n";