Select Code to Download

use Carp;
sub swrite {
    croak "usage: swrite PICTURE ARGS" unless @_;
...
@<<<  @|||  @>>>
END
print $string;