Help for this page

Select Code to Download


  1. or download this
    my ($user, $pass, $mail) = qw(root $ecret someone@somewhe.re);
  2. or download this
    use Config::Tiny;
my $ini = Config::Tiny->read( 'whoamI.ini', 'encoding(Windows-1252)' )
+;
my ($user, $pass, $mail) = ($ini->{Main}{user},$ini->{Main}{pass},$ini
+->{Main}{mail});
  3. or download this
    [Main]
user=root
pass=$ecret
mail=someone@somewhe.re