#!/usr/bin/perl
# by collin chua

use Sound::Effect qw~samuraiSwordSound~;
use CGI qw~:cgi~;

$me = Sound::Effect->new();
$me->set_volume("loud");

# This routine depictng me as how gracious I handle my virtual sword, even come with superb sound effects too :)
&cut_enemy_with_my_katana(
  $me->get_sound("fast_draw"),
  $me->get_sound("angular_slash"),
  $me->get_sound("scabbard_return")
);

$me = CGI->new();

# After my valourous deed, its me back to search for more virtual sword techniques...
$me->redirect('http://www.google.com');

sub cut_enemy_with_katana{
  #Very elegant sword techniques but gory details here....
}