Select Code to Download

Select or download this

#! /usr/bin/perl

...
    my ($buffer_size) = @_;
    return("\x00" x $buffer_size);
}

Select or download this

Bareword "P" not allowed while "strict subs" in use at C:\dev\Source_P
+erl\MiscTests\pid\roth.pl line 17.
Bareword "N" not allowed while "strict subs" in use at C:\dev\Source_P
+erl\MiscTests\pid\roth.pl line 17.
Bareword "P" not allowed while "strict subs" in use at C:\dev\Source_P
+erl\MiscTests\pid\roth.pl line 17.
Bareword "I" not allowed while "strict subs" in use at C:\dev\Source_P
+erl\MiscTests\pid\roth.pl line 17.
Execution of C:\dev\Source_Perl\MiscTests\pid\roth.pl aborted due to c
+ompilation errors.