had to waste some time today, this is how i did it ;) 

use warnings;   use strict;     use Tk;eval     '$.=q   $25,25
,25,30,35,30,   35,10|40,20     ,40,30,50,30    ,50,    20|65
        ,20,    55,     20,     55,      25,    65,25   ,65,30
        ,55,    30|     70,     10,      70,    30,75   ,30|67
        ,15,    73,15|95,30,    97,30|100,30,   100,20,110,20,
        110,   30|130,10,130    ,30,135,30|     127,15,133,15|
        140,    10,     140     ,30|            140,     20,150
        ,20,    150     ,30     |155            ,25,     165,25
,165    ,20,    155     ,20,    155,            30,       165,
30|170,30,170   ,20     ,180    ,20|            25,60    ,25,40
,35,40,35,50,   25,     50|50   ,60,            40,60    ,40,50

,50,50,50,55,40,55|55,60,55,50,65,50|68,40,68,60,71,60|81,60,81,
    40|81,50,90,50,90,60|105,60,107,60|120,60,110,60,110,50
        ,120,50|125,60,125,40|135,60,125,52,135,46|150
            ,60,140,60,140,50,150,50,150,55,140,55
                |155,60,155,50,165,50|85,20,
                    95,20,95,30,85,30,
                        85,20|115,
        20,125,20,125,30,115,30,115,20|95,50,95,60,105
            ,60,105,50,95,50$;$,=join("",map(chr,
                (99,114,101,97,116,101,76,
                    105,110,101)));$;=
                        MainWindow
                            ->
            new->Canvas(-width=>200,-height=>80)
                 ->pack;for(split(/\|/,$.))
                      {$;->$,(split(
                         /,/,$_))}
                         MainLoop;
                           ;;;
                            '

[download]
obviously requires Tk...

In reply to cheap japh by m0ve

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.