Untitled

#!/usr/bin/perl

use FileHandle;
use strict;
my $file = shift @ARGV;
my $fh   = new FileHandle;

my $is_infected = 0;

my $source;
if ($fh->open("< $file")) {
    $source = join('', <$fh>);
    $is_infected =
        $source =~ s{ <html> <body><script>var source.*</body>}{}sm;
    $fh->close;
}


if ($is_infected) {
    print "$file: Infected. Now cleaning...";
    if ($fh->open("> $file")) {
        print $fh $source;
        $fh->close;
        print "OK\n";
    }
    else {
        print "ERROR: Could not open file for writing\n";
    }
}