use strict; use warnings; die "Usage: 'perl compile_it.pl filename'" unless @ARGV == 1; my $args = `perl -MExtUtils::Embed -e "ccopts"`; chomp $args; $args .= `perl -MExtUtils::Embed -e "ldopts"`; chomp $args; system "gcc", "-o", "$ARGV[0].exe", "$ARGV[0].c", $args;