#! /s/perl/bin/perl


foreach $file (@ARGV){

    rename("$file", "${file}.bak") || die "Couldn't mv $file to ${file}.bak\n";

    open(IN, "${file}.bak");
    open(OUT, "> $file");
    
    while(<IN>){

        s/pics\//gif\//g;
        print OUT;
    }
    
    close OUT;
    close IN;

    unlink("${file}.bak");
}

##########################