Select Code to Download

 #!/usr/bin/perl -w

BEGIN {undef $/;}
...
open OUTFILE, ">$ARGV[0]" || die "Failed to create $ARGV[0]\n";
print OUTFILE ($string);
close OUTFILE;

//Verilog HDL for "tt", "hh" "functional"
// if i write the word  here the script goofs up
`timescale 1ps/10fs
...
    input B;

endmodule

//Verilog HDL for "tt", "hh" "functional"
// if i write the word  here the script goofs up
`timescale 1ps/10fs
...
    input B;

endmodule

 //Verilog HDL for "tt", "hh" "functional"
// if i write the word module here the script goofs up
...
    input B;

endmodule

//Verilog HDL for "tt", "hh" "functional"
// if i write the word module NEW(Y, A, B );
    output Y;
...
    input B;

endmodule