Select Code to Download

print $SCALAR LIST
print $SCALAR
...
print BLOCK
print LIST
print

print $ads{$this_ad} "$line\n";

print { $ads{$this_ad} } "$line\n";

$ads{$this_ad}->print("$line\n");