use strict;
use warnings;
                                                                                
my_find("/home/liverpole");
                                                                                
sub my_find {
    my $dir = shift;
    opendir(FH, $dir) or die "Failed to open '$dir' ($!)\n";
    my @files = readdir(FH);
    closedir FH;
                                                                                
    my $show_n_files = 2;
    foreach (@files) {
        next if ($_ eq '.' or $_ eq '..');
        my $path = "$dir/$_";
        if (-f $path and $show_n_files) {
            print "$path\n";
            --$show_n_files;
        } elsif (-d $path) {
            my_find($path);
        }
    }
}