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

  $| = 1;
 

   sub main{
 
   my $directory = '/nfs/fm/stod/stod1031/w.eakanoje.101/power/';
   opendir (DIR, $directory) or die "Cannot open directory $directory";
  # while (my $file = readdir(DIR)){
   # next if($file =~ m/^\./); 
  # print "$file\n";
   # }
  
   my @out = glob("mdp*");
 
   print "@out\n";
   }
   main();