#!/usr/bin/perl -w
use strict;
my $Cut_Off = time - ( 24 * 60 * 60);
my $First_Sign_In = 1; #some function to get the timestamp - see module suggestions later
if ($First_Sign_In > $Cut_Off) {
    print "Welcome\n";
}
else {
    print "Sorry, you need to contact me\n";
}