use Strict; # use strict;

my $val = 5000;
$va1++; # no "Global symbol..." error here
print $va1;


##</code><code>##

use lwp::simple; # not LWP::Simple
getprint 'http://yahoo.com';
# (Do you need to predeclare getprint?)