$option{ "-width" } = "1";
$option{ "-arrow" } = "last";
for ( my $i = 0; $i < 100; $i ++ ) {
$canvas->createLine(
rand( $xmax ), rand( $ymax ),
%option,
-fill => $colors[ rand( $#colors + 1 ) ]
);
}
|
alias eth0 ne options ne io=0x300