#!c:\perl\bin\perl use strict; use CGI qw(:standard); my $labelpath="\\\\\\"; my @arr=`dir $labelpath /b`; print header; print start_html('Thank you'); print < Test Hello $arr[0]
$arr[1]...etc. EOF print end_html;