#!/usr/bin/perl -w
use strict;
__________^
system { './foo' } 'bar', @ARGV;