my $time_zone_func = ( $file =~ /^London/ ) ?
    sub { gmtime shift } : sub { localtime shift };

##</code><code>##

$foo = &$time_zone_func( time );

##</code><code>##

$bar = $time_zone_func->( time );