#! /usr/bin/perl
$log = "/usagelog";
chomp ($log);
$time = scalar(localtime());
print "\n\nWelcome To System Bardock\n\n";
print "Please Provide The Following Details Prior To Your Usage\n\n";
print "Full Name\n\n";
$name = <STDIN>;
chomp ($name);
print "\nBrief Description Of Usage (A Few Words, One Line)\n\n";
$usage = <STDIN>;
print "\nThank you $name for co-operating your details will be reviewe
+d by the s
ystem administrator shortly\n\n";
chomp ($time);
chomp ($usage);
open(INFILE, ">>", $log) or die "Please Email eddie\@budlite.org.uk to
+ report an
 uncreated file\n\n";
print INFILE "User $name accesed bardock at $time giving the following
+ reason fo
r usage:\n$usage\n\n";
close (INFILE);
exit();