#!/usr/bin/perl use strict; use warnings; if((scalar @ARGV) != 1) { print STDERR "Usage: $0 < func-names.txt > dll-name.asm\n"; exit(42); # EX_USAGE } my ($dllname) = @ARGV; print <)) { $func =~ s/[\r\n]//g; next if($func eq ""); print <