Hi dirtdog,

I believe you are looking for a CODEREF. You could do:

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

to create a reference to an anonymous subroutine.

You dereference the coderef with &{ $ref } so you would call it as:

$foo = &$time_zone_func( time );
[download]

or

$bar = $time_zone_func->( time );
[download]

Hope this helps!