#!/usr/local/bin/perl -w
use DBI;
use strict;
use diagnostics;

sub emulate_sub {
    my $dbh;
    
    sub connect {
        $dbh = DBI->connect('dbi:Oracle:rdb1', 'scott', 'tiger') ||
        die DBI::errstr;
    }
}