#!/usr/bin/perl
use strict;
use warnings;

dir('.');

sub dir {
    opendir( DIR, shift );
    my @list_of_files = readdir(DIR);
    foreach (@list_of_files) {
        if (-d $_) {
            dir($_) if $_ !~ /^\.\.?$/;
        }
        else {
            print $_," would become \L$_,\n";
        }
    }
}