#!/usr/bin/perl -w

use strict;

my $dir = `pwd`;

sub start {
  foreach (<$dir*>) {
    print "$_\n" if (-f $_);
    if (-d $_) {
      $dir = $_;
      &start;
    }
  }
}

&start;