#!/usr/bin/perl

({

  sub add_login{

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

}