#!/usr/bin/perl
use strict;
use warnings;

open(my $matlab, '>', 'm_file.m');
print $matlab <<EOF;
x=1;
save timer;
EOF
system('matlab -nojvm -r m_file');