[shagren]

Типа так

print '&somevars1='.$var1.'&somevars2='.$vars2.'&somevars3 ..... ;

Тока учти, чтобы в значениях переменных небыло всяких там амперсендов и процентов. Их надо заменять , ну типа так:

print  &somevars1='.str2flash($var1);
....

sub str2flash{
   my $s=shift;
   $s=~s/%/%25/gm;
   $s=~s/&/%26/gm;
   $s=~s/\+/%2B/gm;
   return $s;
}