report format/output question

[Brian Warn]

Hello,

I'm trying to do something fairly simple:  read in colon-delimited data from a file 
and output it to the screen first.  After that is OK, I want to send it in an email.  
The syntax checks out OK, but nothing outputs.  Does anyone see what I'm missing?

Thanks,
Brian
--------------------------
#!/usr/bin/perl -w
# report.pl

open(BW, "> rpt") || die "Can't open rpt.out: $!\n";
select(BW);
format BW_TOP=
      LOGS WITH DIFFERENT FILESIZES
DATE     FILENAME           LOCAL SIZE  REMOTE SIZE
____________________________________________________________________________________________
.
format BW =
@<<<<<<<<@>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>@>>>>>>>>>>>>>>@>>>>>>>>>>>>>>>>>
$currdate, $logfile1, $fsize, $rsize
.
open(DISCREP, "< fail.txt") || die "Can't open fail.out for reading: $!\n";
while(<DISCREP>)
{
 ($currdate,$logfile1,$fsize,$rsize)=split(/:/,$_);
 write;
}
close(DISCREP);
close(BW);