$filefind='ct'."$name".'*'.'.*';
$path="\\\\$server\\path";
@filea=glob (<$path\\$filefind>);
@fileb=<$path\\$filefind>;
@filec=`dir $path\\$filefind /b /o`;