#!/usr/bin/perl 

use 5.034;

# percent locl time - plt

my $now = scalar ( localtime() );
my $total = 24 * 60 * 60;
$now =~ /(.+)\s+(\d{2})\:(\d{2})\:(\d{2})/;
my $hour = $2 * 60 *60 + $3 * 60 + $4;
my $percent = (int( 100_000*$hour/$total )) / 1000;
say "$now";
say "Percent local time is = $percent% of the day";

exit 2;