You didn't close your use statement on line 2 of bar

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

Which fixed it for me. :-)

EDIT:
Didn't -w scream at you?