#! /usr/bin/perl -w

$, = ', ';
print $ARGV[0] =~ tr/*?// ? glob ($ARGV[0]) : ((-e $ARGV[0]) ? $ARGV[0] : '<No File>');