#!/usr/bin/perl

print "Please enter trace file name"
$tracefilename = <STDIN>;
chomp $tracefilename;

print "Please enter agent extension"
$agentextension = <STDIN>;
chomp $agentextension;

print "Please enter time"
$time = <STDIN>;
chomp $time;

open (THATFILE, "$tracefilename") ||
	die "cannot open $tracefilename: $!";

foreach $line (@lines) {
	# now I'm stuck!!!