my $msg = $pop->get($msgnum);
for my $line ( @$msg ) {
    if( $line =~ /^Subject:(.*)/ ) {
        print "Subject is $1";
        last;
    }
}