I have asked the user to give a name of a file, the userid, and time. I need to sort through this file with the userid and time, keeping all information pertinent to that line, then later print the results in order of line. I don't have much. This is my first attempt:

#!/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!!!
[download]

Edit 2001-03-12 by tye to add <code> tags