#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;

my $compiler = 'g++';
my $file_in  = shift @ARGV;
my $file_out = shift @ARGV;

my $out = qx( $compiler $file_in -o $file_out );

print ">>>$out\nLength: ", length( $out ), "\n";