Select Code to Download

#!/usr/bin/perl -w
use strict;
chdir('C:\Program Files (x86)\Microsoft Visual SourceSafe');
my $result = `SS Dir \"$/\" -Yadmin`;
print $result;