sub GetSSNameFromFile( $\$\$ )
{
   my $s_InputFile = $_[ 0 ];
   my $rs_OutputFile = $_[ 1 ];
   my $rs_RecurseLabel = $_[ 2 ];
   my $s_SSDataDir = "$ENV{ SSDIR }\\data";

   ++$$rs_RecurseLabel;
...

##</code><code>##

GetSSNameFromFile( $sFile, $sRealName, $sRecurseLabel );

##</code><code>##

Modification of a read-only value attempted at D:\dlkusters\vsstools\vsstools/VSS/Utils.pm line 102.