#!/usr/bin/perl
use strict;
use CGI;
my $cgi = new CGI;

# construct and send confirmation emails here if you
# want them to go to everyone

if ($cgi->param('radiobutton') eq 'paypal')
{
  # this sends a redirection header
  print $cgi->redirect('http://sendmetopaypal.com');
}
else
{
  # construct and send confirmation emails here if you
  # only want them to go to non paypal users

  print $cgi->header(),
        $cgi->start_html,
        "Thank you for booking, a confirmation email has been sent to email\@address",
        $cgi->end_html;
}


##</code><code>##

#!/usr/bin/perl
use strict;
use CGI;
my $cgi = new CGI;

print $cgi->header;

print $cgi->redirect('http://redirecttohere.com');