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

my $file_in = shift;
open my $FH, "<", $file_in or die "cannot open $file_in $!";
while (<$FH>) {
     s/test/replace/g;
     print;
}