[pvpchina]

#!/usr/bin/perl -w
use strict;
sub funky();


funky();
print(funky()."\n");

my $random = <STDIN>;

print(funky().$random);


sub funky(){

my $var1 = $_[0] * 30;

return $var1;
}




also need help with this one.. duno why it doesnt work =(