#!/usr/bin/perl

use strict;
use warnings;

use Win32;

Win32::MsgBox($ARGV[0] || "[No Filename dropped]", MB_ICONINFORMATION, "Filename");

1;