#!/bin/perl

use strict;
use warnings;

foreach (glob ( "/cygdrive/c/temp/*" ))
{
  print $_, "\n";
}