#!/usr/local/bin/perl -w
use strict;

##</code><code>##

    @vars[0] = $name;

##</code><code>##

    $vars[0] = $name;