#!/perl
use strict;
use warnings FATAL => qw(all);

use ExtUtils::Embed;

print "\nBuilding Hello\n";
my $gcc_cmd = join( ' ' , 'C:\Perl_516_portable\c\bin\gcc -Wall -mwindows -o K:\Scripts\Embed\Hello_3\hello K:\Scripts\Embed\Hello_3\hello.c',
&ccopts, &ldopts );

print STDOUT $gcc_cmd , "\n";
system( $gcc_cmd );