#!perl

my $executable_name = 'hty.exe';
my @modules = qw/
CGI CCC CTI C Class:DBI Tk
/;

my $command = "pp -o $executable_name " . join '', map { "-M " . $_ }  @modules;

`$command`