Import qw( po sub ) ;

use Data::Dumper;
warn Data::Dumper->Dump([$po],['po']);

$sub->();