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...