#!/usr/bin/perl

$folder = 'C:';
$input = $ARGV[0];

@array = `dir /b ${folder}\\${input}`;

foreach (@array) {
    print "$_";
}