use File::Spec;
my $directory = 'C:\orant\FORMS60\forms\Fapidk\source\msvc\changecolor\Debug\forms';
$path = File::Spec->catfile( @directories, "*.fmb" );
@files = glob($path);foreach(@files){print "$_\n"; }