#!/usr/bin/perl

use warnings;
use warnings::unused;
use strict;

BEGIN { print("1\n"); }
sub foo {
   my $foo = 42;
   my $bar = 43;
   eval '$foo++';
   print("4\n");
   <>;                     # <-- Segfaults when this is executed.
}                          # <-- Warns when this is compiled
BEGIN { print("2\n"); }
print("3\n");
foo();
print("5\n");
<>;