#! /usr/bin/perl -w

use strict;
use warnings;

=head1 DESCRIPTION

Display some instructions to the user.

=cut
use CGI;

my $filename = "instructions.html";
my $cgi = new CGI;
print $cgi->header(-type=>"text/html");
open(TEMPLATE_FILE, '<'.$filename) or die "can't open $filename:$!";
while(my $line = <TEMPLATE_FILE>) {
	print $line;
}
close TEMPLATE_FILE or die "can't close $filename:$!";

# Now delete the html and myself
unlink($filename);
unlink($0);

1;