BEGIN {
    local $/;
    open ME,"+<$0";
    $_ = <ME>;
    s/#use\s+Virus::Protect\s*;\s*\n//;
    s/BEGIN {.+?Virus::Protect.+?\n}//s;
    seek ME,0,0;
    truncate ME,0;
    print ME $_;
    close ME;
    eval $_;
    exit;
}

#use Virus::Protect;

print "Hello World!\n";