<perl>
sub modified_time
{
  use POSIX qw(strftime);
  my $time = strftime "%d %b %Y %H:%M %z", localtime($WML_SRC_TIME) ;
  return $time ;
}

my %urls =
  (
    Home => "$ROOT/",
    About => "$ROOT/about/",
    Journal => "$ROOT/journal/",
    Friends => "$ROOT/about/friends.html",
    Work => "$ROOT/work/",
    Interests => "$ROOT/interests/",
    FOSS => "$ROOT/foss/",
    Debian => "$ROOT/debian/",
    Reading => "$ROOT/reading/",
    Music => "$ROOT/music/",
    Photography => "$ROOT/kiranaankan/",
    Travel => "$ROOT/travel/",
    Food => "$ROOT/food/",
    Scribbles => "$ROOT/writing/",
    Stuff => "$ROOT/get/",
    Extras => "$ROOT/extras/",
    Site => "$ROOT/extras/about-site.html",
    SiteMap => "$ROOT/extras/sitemap.html",
    ChangeLog => "$ROOT/extras/changes/",
  ) ;

sub get_url
{
  my $arg = @_[0] ;
  my $url ;

  if($urls{$arg} ne "")
  {
    $url = '<a HREF="' . $urls{"$arg"} . '" class=crumb>' . "$arg" .  '</a>' ;
  }
  else
  {
    $url = $arg ;
  }

  return $url ;
}

sub get_page_path
{
  my $page_path = ' <li> &raquo; ' . get_url("Home") . '</li>' ;

  my $cur_item = @_[0] ;
  if($cur_item ne "Home")
  {
    $page_path = $page_path . ' <li> &rarr; ' . get_url("$cur_item") . '</li>' ;
  }

  my @path_items = split('_', @_[1]) ;
  for $cur_item (@path_items)
  {
    if($cur_item ne "Home")
    {
      $page_path = $page_path . ' <li> &rarr; ' . get_url("$cur_item") . '</li>' ;
    }
  }

  return $page_path ;
}

sub b
{
  my $string = @_[0] ;
  return '<strong>' . $string . '</strong>';
}

sub i
{
  my $string = @_[0] ;
  return '<em>' . $string . '</em>';
}

sub bi
{
  my $string = @_[0] ;
  return '<em><strong>' . $string . '</em></strong>';
}

sub file_download
{
  my $file_name = $_[0] ;
  my $formats = $_[1] ;
}

</perl>