$ perl -w -e 'my $x = 1..3' -Mdiagnostics
$