Select Code to Download

my $path     = 'C:/Users/Documents/Traning';
my $filename = $path.'/Perl/XiServiceList.txt';
...
.
.
open MYFILE, ">>", $logfile;