my $handle = *RPT;