#!/usr/bin/perl

use Getopt::Long;
use strict;

my $template;
my $replacement;
my $prefix;
my $total;
my $counter;
my @template;

GetOptions (
    "template=s"    => \$template,
    "replacement=s" => \$replacement,
    "prefix=s"      => \$prefix,
    "total=i"       => \$total,
    );

open FH, "< $template" or die "Couldn't open the file $template\n";
@template = <FH>;
close FH;