Fix silly perl mistake
Merge pull request #4 from gsandie/learn_perl

Fix silly mistake with perl syntax