Select Code to Download

sub test(){
  print "\$#{\@_} = $#{@_}\n";
}

$VAR1 = 'insert into test (foo1, foo2, foo3, foo3, foo5, foo6) VALUES 
+(?,?,?,?,?,?) ';
$VAR2 = 'datum1';
...
$VAR5 = 'datum4';
$VAR6 = 'datum5';
$VAR7 = 'datum6';