#!/usr/bin/env perl

open my $fh, '>', shift;
print {$fh} '["frew","bar","baz"]'
