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

my $cell_list = $ARGV[0]; # input cell_list
my $pvt_list = $ARGV[1]; # input pvt_list

if ($#ARGV!=1)
{
   print "USAGE :: perl max_tran_update.pl <<cell_list>> <<PVT_LIST>> \n\n" ;
   exit(1);   
}


open (CFILE,"<","$cell_list") || die "Can not open cell_list";
open (PFILE,"<","$pvt_list") || die "Can not open pvt_list";


my @cell_file = <CFILE>;
my @pvt_file = <PFILE>;