$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