use Blinds; my $x= new Blinds (34.75, 58); $x->{angle} = $ARGV[0] || 30; $x->render (\*STDOUT, "MyBlinds");