#!/usr/bin/perl

my $file = shift or die;
open F, "<", $file or die "$file: $!";
$file =~ s/\.gpl$//;
$file .= ".png";
print qq{set terminal png color\n};
print qq{set size square 0.5,0.5\n};
print qq{set nokey\n} if $file !~ /wschart/;
print qq{set output "$file"\n};
print while <F>;