use warnings;
use strict;

my $command = 'ceva';
print("Enter a command, STOP to quit.\n");       
#=pod
while($command ne 'STOP'){
    print('>');       
    chomp($command = <STDIN>);
    $command = lc($command); # convert command to lowercase
    print("Ati tastat: $command\n"); # display the command
}continue{
    if ($command eq 'stop'){
        print "Programul a fost oprit fortat\n";
        last;
    }
}
#=cut
=pod
while($command ne 'STOP'){
    print('>');       
    chomp($command = <STDIN>);
    $command = lc($command); # convert command to lowercase
    print("Ati tastat: $command\n"); # display the command
    if ($command eq 'stop'){
        print "Programul a fost oprit fortat\n";
        last;
    }
}
=cut

__END__
Un grup de instructiuni aflat într-un bloc continue va fi întotdeauna executat
exact înainte de a fi evaluată conditia ciclului while.
Spre deosebire de next care trebuie declarat în interiorul unei iterații,
continue este declarat la sfârșitul unei iterații fiind strâns legată de mecanismul
de execuție al acesteia.

Continue se poate folosi numai în combinatie cu while si foreach.
Nu poate fi combinat cu do{}.

https://www.tutorialspoint.com/perl/perl_continue_statement.htm
https://stackoverflow.com/questions/12081818/perl-difference-between-next-and-continue