#!/usr/bin/perl
use warnings;
use strict;

sub coordinate {
  print '<'.join("><",@_),">\n";
}

while (<>) {
  no strict;
  eval $_;
}

##</code><code>##

> ./t7.pl
coordinate 4
<4>
coordinate "test","west","best"
<test><west><best>
$n=4      
coordinate $n
<4>