#!/usr/bin/perl

use strict;
use warnings;

chdir('/path/to/oldFolder');

my @files = <*>;
foreach my $file (@files) {
    if ( -f $file ) {
        print $file . " file \n";
    }
    if ( -d $file ) {
        print $file . " directory \n";
    }
}