sub a {
open(DATA, "<$config{'basepath'}/data.out") || die "Can't open file: $!";

	@lines = <DATA>;
	close (DATA);

$listings = 0;

foreach $temp (@lines){
($num,$date,$desc) = split(/\|/,$temp);

if ($num =~ /^123$/) { print "$desc\n"; 
$listings = 1;}

}

if ($listings eq "0") {print "There are no listings for "123" at this time.\n";}

}

##</code><code>##

<A HREF=$ENV{'SCRIPT_NAME'}?action=a>Click for '123' listings</a><br>