package iVPU_Parameter;
require Exporter;
@ISA=qw(Exporter);
@EXPORT = qw(Configchk);


sub Configchk()
{
&a=$_[0];
@arr_iVPU_standard=$_[1];
@arr_iVPU_current=$_[2];
   
blah blah blah
}


##</code><code>##


use warnings;
use iVPU_Parameter;

$vlan_id=xxx;

open(FH_CURRENT,"Running.txt");
open(FH_STANDARD,"Standard.txt");

@iVPU_current=<FH_CURRENT>;
@iVPU_standard=<FH_STANDARD>;
&Configchk($vlan_id,@arr_iVPU_standard,@arr_iVPU_current);



##</code><code>##

print @arr_iVPU_standard;


##</code><code>##

&Configchk($vlan_id,@arr_iVPU_standard,@arr_iVPU_current);