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

sub foo {
  my $bar = 'baz';
}

foo();

print $bar; # error