#!/usr/bin/perl -w
#Script To Keep Term From Idling To long
#To Avoid Being Dissconnected from Server
#CTRL-C To Kill.
#Happy Idling!
use strict;
print "\nKeep Me Alive! CTRL-C to Kill Once Started\n";
print "\nDo you Want To Put Me To Sleep Now?(y,n):";
my $answ;
chomp($answ=<STDIN>);
if ($answ=~ /y/) { &sleep }
else{ print "\nFine, I didn't want a nap anyways!\n\n"; }

sub sleep {
my $sleep = sleep 30;
&sleep;
}