#!/usr/bin/perl -w
use strict;
die unless @ARGV==1;
die unless $ARGV[0] =~ m/^(.+),(\w+)(?:\..*)?/;
my ($base,$obj) = ($1,$2);
print <<END or die $!;
include <$base.scad>
$obj();
END
close STDOUT or die $!;