DEBSOURCES
Skip Quicknav
sources / libshell-posix-select-perl / 0.09-1 / Test_Progs / myvar
123456789
#! /usr/bin/perl -w my $VERSION = 1.02; use blib; use Shell::POSIX::Select ; select my $var (1,2) { print "$var\n"; }