Ejersisio tres: Contar lineas en blanco

En plan guarro:

#!/usr/bin/perl

open my $fh, "<", $ARGV[0] or die "Eso no existe";
open my $fh_out, ">", $ARGV[1] or die "No se puede";

$contador = 0;
while(<$fh>){
    chop; chop;
 if( $_ ) {
        print "normal\n";
    }else{
        print "en blanco\n";
        $contador++;
    }

    print $contador;

}

print $contador;
print $fh_out $contador;
close $fh;
close $fh_out;