#!/usr/bin/perl -T                

use strict;
use warnings;

$|++; 

my $line = shift( @ARGV );

unless( defined( $line ) ){
        $line = <STDIN>;
}
select STDOUT;
$|=1;
print STDOUT "$line\n" if( defined( $line ) && $line !~ m/favicon/ig );

exit(0);