$b = 0; 
$x = $b ? sub{  gmtime( @_ ) } : sub{ localtime( @_ ); }; 
print $x->( 123456 );;
1 0 0 1 0 70 4 0 0

$b = 1; 
$x = $b ? sub{  gmtime( @_ ) } : sub{ localtime( @_ ); }; 
print $x->( 123456 );;
1 0 0 1 0 70 4 0 0