#!/usr/bin/perl

use strict;
use warnings;
use Proc::Background;
use vars qw(@ISA);
@ISA = qw(Proc::Background);
use Data::Dumper::Concise;

my $loc = '/bin/ps';

my $proc1 = Proc::Background->new($loc);
$proc1->wait;

my $time1 = $proc1->start_time;
my $time2 = $proc1->end_time;
print "Status: \n", "end_time: ", Dumper($time2);