Select Code to Download

    for ( @$row )
    {
        $sum++;
    }

print join( '; ', @$row );

#!/usr/bin/perl
  
...

    print join( '; ', @$row );
}