package MyApp;

use base 'CGI::Application';

....

sub setup {
  my $self = shift;
  my $cgi  = $self->query();

  $self->start_mode( $cgi->request_method() );

  $self->run_modes(
    'PUT'       => 'create',
    'GET'       => 'retrieve',
    'POST'      => 'update',
    'DELETE'    => 'delete',
    'AUTOLOAD'  => 'method_not_supported'
  );
 
  return;  
}

....

1;