#!/usr/bin/perl -w
use strict;
use warnings;
my @findX= `find /a/b/c/Disk_A/ -name 'X'`;
print @findX;