Select Code to Download

#!/usr/bin/perl
use strict ;
use warnings ;

@ARGV=(qw/abc.txt/) ;

while(<>) {
 s/trojan is like viruse/hello/g;
 print ;
}