#!/usr/bin/perl

use strict;
use warnings;

my $mtime =
        ( stat ( "/home/steve/devel/ISP/lib/ISP/User.pm" ))[9];

my $other_mtime = 999999999;

my $cmp_result = compare ( $mtime, $other_mtime );

print "$cmp_result\n";

sub compare {

        my ( $mtime, $other_mtime, ) = @_;
        my $cmp_result;

        if ( $mtime > $other_mtime ) {
                $cmp_result = "mtime_is_higher";
        }
        else {
                $cmp_result = "mtime_is_lower";
        }
        return $cmp_result;
}