#!/usr/bin/perl -w

#Remove todos os comentarios do
#ShellScript ou Perl.
#Mas os comentarios nesse estilo:"blabla #blabla"
#permanecerao.
#Carlos Carvalho<carlos_lnx@yahoo.com.br>

use strict;
my $file = $ARGV[0] or die "Use $0 filename";
open(FILE_IN,"<$file");
open(FILE_OUT,">$file.out");
while (<FILE_IN>) {
        if ($_ !~ /^#/) {
                print(FILE_OUT "$_");
        }
}