#!/usr/bin/perl
use strict;

my $file = $ARGV[0];
if (!$file) {
   print "Hey! You didn't give me a file, sucka!\n";
}
my $out = $file;
open IN, "$file" 
  or die "File did not open\n";
open OUT, "<$out"
    or die "File not available for write.\n";
$out =~ s/(\.\w+)?$/.out/;
while (<IN>) {
   $out =~ s/fred/larry/gi;
   print OUT;
}


##</code><code>##

while (<IN>) {
   $out =~ s/fred/larry/gi;
   print OUT;
}