#!/usr/bin/perl 
use warnings;
use strict;

#open 3 filehandles

open Classified, "c:/begperl/classified1_sports.dat" or die "Error message here: $!\n";
open Good, ">c:/begperl/good.dat" or die "Error message here: $!\n";
open Bad, ">c:/begperl/bad.dat" or die "Error message here: $!\n";

while (<Classified>){

	if (Classified == unclassified) 
	print FH Good\n;
	
	else {
	print "bad\n";
	
	}