#!/usr/bin/perl

({

  sub add_login{

      my ($var) = @_;
      #...
  }

}

##</code><code>##

$ perl -c <629906.pl 
syntax error at - line 5, near "sub add_login"
Can't use global @_ in "my" at - line 7, near "= @_"
- had compilation errors.