#!/usr/bin/perl -w

use CGI;
$query = new CGI;



print "Status: 200 Yipperr\nContent-type: text/html\n\n";

$file = $query->param("file");

if (!defined($file))
{
	print "<form action=Size.cgi>\n";
	#print "<input name=file>\n";
	print "<input type=radio name=\"file\" value=\"/etc/passwd\">/etc/passwd";
	print "<input type=radio name=\"file\" value=\"/etc/group\">/etc/group";
	print "<input type=submit value=\"Now\">";
}
else
{
	$output = `ls -l $file`;
	print "It said: $output\n";
}