The problem probably isn't that the server in England is wrong, but that your in a different time zone. Something like this might help you get your local time:

my $date_england = time ;
my $tz_offset    = -8 ;
my $date_pacific = time + ( $tz_offset * 3600 ) ; 

print "England: ", scalar localtime( $date_england ), $/ ;
print "Pacific: ", scalar localtime( $date_pacific ), $/ ;
[download]

Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
            --Friedrich Nietzsche

All you need to do is find out how many hours you are behind GMT, and substract that from localtime. Try this (untested):

my $time = localtime; 
my $hours_behind_gmt = 4; 
# localtime is in seconds, hence we need to get hours --> seconds
my $time_in_my_timezone = localtime - ($hours_behind_gmt * 60 * 60); 
print scalar localtime($time_in_my_timezone);
[download]

For doing fancy operations with dates, you might like to use the Date::Calc module on CPAN. Finally, in future, please do a bit of research yourself. This is quite a basic question and the answer could probably be found with a bit of hacking and Google-ing. If you have done research, give us the code you've already got (even if you think it's bad). People are more inclined to help if you seem to be making a real effort yourself.

Is this along the right lines? England should be a fixed number of hours away from you, so if you do $time = time(); then do $time += or -= n*60*60 you should have your local time (give or take a few seconds). Then get your date using localtime.

<whisper>is this homework?</whisper> You may even be able to change locale, but I don't know anything about that.

How can you feel when you're made of steel? I am made of steel. I am the Robot Tourist. Robot Tourist, by Ten Benson

But to answer your question, how about getting Greenwich Mean Time (GMT) and figuring out how many hours ahead/behing you are? gmtime() might be able to help you. It's like localtime() except it returns the date values in GMT time.`

(my $sec,my $min,my $hour,my $mday,my $mon,my $year,my $wday,my $yday,
+my $isdst)=localtime(time);

my $month1 = $mon+1;

my $year1 = $year+1900;

if ($mday == 1 && $month1 == 2) {
$mday = 28;
}
elsif ($mday == 1 && $month1 == 4) {
$mday = 30;
}
elsif ($mday == 1 && $month1 == 6) {
$mday = 30;
}
elsif ($mday == 1 && $month1 == 9) {
$mday = 30;
}
elsif ($mday == 1 && $month1 == 11) {
$mday = 30;
}
else {
$mday--;
}

my $date1 = "$month1\/$mday\/$year1";
[download]

Your adjustments are not necessary here. Assuming the only issue here is the time zone difference, try consolidating your code into something like the following:

my $server_tz =  0 ; # GMT
my $client_tz = -8 ; # PST
my $offset    = $client_tz - $server_tz ;

my @t = localtime( time + ( $offset * 3600 ) ) ;

my $date = sprintf "%d/%d/%d", $t[4] + 1, $t[3], $t[5] + 1900 ;
[download]


_______________
DamnDirtyApe

Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.

            --Friedrich Nietzsche