$ perl -e 'my $foo="bar"; warn q/$foo is /, $foo, $!'
$foo is bar at -e line 1.