use strict;
use warnings;

while(my $input = <STDIN>){
  die "User requested exit" if $input eq 'exit';
  #do whatever...
}