#!/usr/bin/perl
use strict;
use warnings;

if (1 == 2) {
  require "foo.pl";
}

print "bar\n";