#!/usr/bin/perl -w
use Login;
my $app = Login->new();
$app->run();