# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: pioctl.pasm 12835 2006-05-30 13:32:26Z coke $

=head1 NAME

examples/io/pioctl.pasm - "pioctl" Examples

=head1 SYNOPSIS

    % ./parrot examples/io/pioctl.pasm

=head1 DESCRIPTION

Examples of use of the C<pioctl> op.

Currently just gets and sets the buffer size of F</etc/paswd>. 

=cut

# add lots of samples here

   open P0, "/etc/passwd", "<"
   pioctl I0, P0, 6, 0
   print "Bufsize "
   print I0
   print "\n"
   pioctl I0, P0, 5, 2222 
   pioctl I0, P0, 6, 0
   print "Bufsize "
   print I0
   print "\n"
   end
