Code:
#!/usr/bin/perl
open A, "<$0";
while (<A>) { print; }
Is it cheating to use an interpreted language, pick up your own script file and print it? That's a pretty short quine! And it's embeddable! Stick it in ANY Perl script to turn that script into a quine.
I've just invented the Universal Quine! There's a PhD somewhere with my name on it!