Select Code to Download

#!/usr/bin/perl

...
    print q{-} x 10, qq{\n};
}

----------
meta
...
  'shape' => 'rect'
};
----------