1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use IO::Handle;
7
8STDOUT->autoflush(1);
9
10my $tmpdir = $ENV{__PERLDB_TEMP_DIR};
11
12sub _do_chdir
13{
14    chdir($tmpdir);
15}
16
17sub _after_chdir
18{
19    print "_after_chdir\n";
20}
21
22sub _finale
23{
24    my $i = 1;
25    while (1)
26    {
27        print "In _finale No " . ($i++) . "\n";
28    }
29}
30
31_do_chdir();
32_after_chdir();
33_finale();
34