#!/usr/bin/perl/

use Time::CTime;

print "thanks for using add_announcement.pl\n";
print "Please enter the announcement that you would like to add\n";
$_ = <STDIN>;
chop($_);
print "you entered: ";
print $_;
print "\n";

$time = ctime(time);
$time =~ s/:[0-9][0-9] / /;

print $time;

erl add_announcement.pl;