use strict;
use warnings;

$SIG{__WARN__} = sub { $DB::single = 1 };

my $c = 3;
my $d = 'foo';

my $e = $c + $d;
print "$e\n";