#!/usr/bin/perl -w system("img.jpg");