Mine

sub faillista {

	$failed = 0;				# Nollataan $failed siltä varalta, jos sitä käytetään useampaan kertaan

	$loki = "typewriter_access.log";	# Valitaan loki-tiedosto

	open (KAHVA, "<$loki");			# Avataan loki-tiedosto

	while (<KAHVA>){

		if ($_ =~ /HTTP......[^1-3]\d\d/){
			print "Haluatko tulostaa näytölle(1) vai tiedostoon(0)?\n";
			$a = <STDIN>;
			if ($a == 0) {
				$file = "virheet.log";

				open (LUSIKKA, ">>$file");

				print LUSIKKA $_;
			}
			else {
				print $_;
			}

		}

	}

	close KAHVA;

}