#!/usr/bin/perl

use strict;
use warnings;
use Date::Parse;
use DateTime;
use POSIX qw/strftime/;

my $Datetime = DateTime->now;

my $Seen = '01/27/2022 07:40:03';
my $CurrentDateTime = strftime('%m/%d/%Y %H:%M:%S',localtime);

my $SeenDateTime = DateTime->from_epoch( epoch => str2time( $Seen ) );
my $CurrentDate_AndTime = DateTime->from_epoch( epoch => str2time( $CurrentDateTime ) );

my $diff = $CurrentDate_AndTime->subtract_datetime( $SeenDateTime );

my ( $years, $months, $weeks, $days, $hours, $minutes ) =
   $diff->in_units(qw( years months weeks days hours minutes ));
   
my $SeenTime ='';

if ( $years  >=  1 ) { 
 $SeenTime = "Seen $years Years Ago";
}
elsif ( $months >   1 ) { 
 $SeenTime = "Seen $months Month Ago";
}
elsif ( $months ==  1 ) { 
 $SeenTime = "Seen $months Month Ago";   
 }
elsif ( $weeks  >   1 ) { 
 $SeenTime = "Seen $weeks Weeks Ago";
}
elsif ( $weeks  ==  1 ) { 
 $SeenTime = "Seen $weeks Weeks Ago";         
}
elsif ( $days   >   1 ) { 
 $SeenTime = "Seen $days Days Ago";          
}
elsif ( $days   ==  1 ) { 
 $SeenTime = "Seen $days Days Ago";
}
elsif ( $hours   >   1 ) { 
$SeenTime = "Seen $hours Hours Ago";        
}
elsif ( $hours   ==  1 ) { 
$SeenTime = "Seen $hours Hours Ago";       
}
elsif ( $minutes   >   1 ) { 
$SeenTime = "Seen $minutes Minutes Ago";         
}
elsif ( $minutes   ==  1 ) { 
$SeenTime = "Seen $minutes Minutes Ago";      
}
elsif ( $Seen ==  $CurrentDateTime) { 
$SeenTime = "Online";      
}

print $SeenTime;