package main;

while (1) {
    my $dir = Practice::Dir->new;
    my $file = Practice::File->new;
    $dir->add_file($file);
    $file->add_dir($dir);
}