Select Code to Download

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

$foo = &$time_zone_func( time );

$bar = $time_zone_func->( time );