#! /usr/bin/perl -w

$m=$ARGV[0];
$n=0;
open(FILE,"$m") or die $!;
@ARGA=<FILE>;
close FILE;
foreach $_ (@ARGA) {
$m=$_;
$m =~ s/1'b1/VDD/g;
$m =~ s/1'b0/VSS/g;
@word = split(/[ ]+/, $m);

if($word[0] eq "module"){

print $m;
$n=1;

}
elsif($n==1){
print $m;
print "supply1 VDD;\n";
print "supply0 VSS;\n";
$n=0;
}
else
{
print $m;
}
}