xref: /openbsd-src/gnu/usr.bin/perl/lib/perl5db/t/with-subroutine (revision f6aab3d83b51b91c24247ad2c2573574de475a82)
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6my $x = 'hello world';
7
8print "$x\n";
9
10back();
11
12exit;
13
14sub back {
15    print "hello back\n";
16}
17
18