sub email_results {
  my %vars = $cgi->Vars();

  my $msg = MIME::Lite->new (
    From => $email,
    To => $email,
    Subject => 'Credit Card Survey Results',
    Type => 'multipart/mixed'
  );

  my $body = ();
  my $csv = '"';
  foreach my $key (sort keys %vars) {
    $body .= "$key: $vars{$key}\n";
    $csv .= "$vars{$key}" . '","';
  }
  chop($csv);
  chop($csv);

  $msg->attach (
    Type => 'TEXT',
    Data => $body
  );

  my $attachment = MIME::Lite->new (
    Type => 'text/csv',
    Data => $csv,
    Disposition => 'attachment'
  );
  $attachment->attr('content-type.name' => 'survey.csv');

  $msg->attach($attachment) or die "Error attaching CSV file: $!";
  $msg->send();
}