#!/usr/local/bin/perl

# filename=blklns.pl

&open_file("INFILE", "", "infile.txt");

&open_file("OUTFILE", ">", "outfile.txt");

while ($line = &read_from_file("INFILE")) {

$line2 = $line;

$wordcount = 0;

chop ($line2);

@words = split(/ +/, $line2);

$wordcount += @words;

if ($wordcount == 0) {

print " Dropping line: $wordcount \n";

}

else

{

print "Printing line: $line \n";

&print_to_file("OUTFILE", $line);

}

}

sub open_file {

local ($filevar, $filemode, $filename) = @_;

open ($filevar, $filemode . $filename) ||

die ("Can't open $filename");

}

sub read_from_file {

local ($filevar) = @_;

<$filevar>;

}

sub print_to_file {

local ($filevar, $line) = @_;

print $filevar ($line);

}