Select Code to Download

my $time_zone_func =
   $file =~ /^London/
...
      : \&CORE::localtime;

strftime($date_format, $time_zone_func->(time))

my $time_zone_func =
   $file =~ /^London/
...
      : sub { localtime($_[0]) };

strftime($date_format, $time_zone_func->(time))

my $time_zone_func = sub {
   $file =~ /^London/
...
};

strftime($date_format, $time_zone_func->(time))