use GTop;

my @line = @{ (GTop->new->proc_args ($$))[1] };

$\ = $, = "\n";
print @line;