#!/usr/bin/perl -i'foo e eval "warn q[bar]" '
1;