#!/usr/bin/perl -w use strict; print "User => "; my $a = <STDIN>; chop $a; print "Password => "; my $b = <STDIN>; chop $b;
#!/usr/bin/perl -wuse strict;print "User => ";chomp(my $a = <STDIN>); print "Password => ";system "stty -echo";chomp(my $b = <STDIN>);if ($a eq 'mall' && $b eq 'nopo'){print "Funciona\n";}if ($a eq 'root' && $b eq 'lll'){print "funciona!\n";}if ($a eq 'mall' && $b ne 'nopo' ){print "Permizo denegado\n";}; if ($a eq 'root' && $b ne 'llll'){print "acces denieg\n";}system "stty echo";
