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

my $dir = "C:/Users/ST/DesktopSample"; 
opendir (my $gdh, $dir) or die "Unable to open main directory";
say for readdir($gdh);
closedir($gdh);