return \@verbose if($info eq 'verbose'); #### my $time = scalar localtime(); $time =~ /(\d\d:\d\d:\d\d)/; $time = $1; #### my $time = sprintf '%02d:%02d:%02d', ( localtime )[ 2,1,0 ];