blob: 39615fcd82bdf1f50ceb4fe9d679d927d1293b18 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
package Test;
use strict;
use warnings;
use 5.010;
our $scalar = 1;
our @array = (1, 2, 3);
our %hash = (1 => 2);
open FH, "<", "does not exist";
sub sub_routine { }
1;
|