#1/usr/local/bin/perl

open (CHKFL, $ARGV[0]) or die "Could not read file.";
@filelines = <CHKFL>;
$fileflag=0;

if ($ARGV[1] =~ /-o/) {
	$outfile = $ARGV[2];
	open OUTF, ">$outfile" or die "err with $outfile.\n";
	$fileflag = 1;
	print "file $outfile writing.\n";
}

$i=1;
$flag = 0;
for $line (@filelines) {
	$line2 = lc $line;
	if ($line2 =~ /fuck|shit|faggot|gay|douche|cock|penis|dick|damn|hell/) {
		if ($fileflag == 0)	{
			print "Oh noes, profanity on line $i: $line";
		}
		else {
			print OUTF "Oh noes, profanity on line $i: $line";
		}
		$flag = 1;
	}
	$i++;
}

if ($flag == 0) {
	print "You seem to be okay!\n"
}